home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / transfer.zip / TRANSFER.PRG < prev   
Text File  |  1988-10-09  |  607b  |  30 lines
  1. ***  TRANSFER  transfert DBASE or CLIPPER TO WordPerfect 5.0
  2.  
  3.  
  4. A = CHR(18)-CHR(10)         && CTRL R POUR wp
  5. B = CHR(5) - CHR(10)         && CTRL E POUR WP
  6.  
  7. use perfect index indexb
  8. SET ALTERNATE TO EXTENDB
  9. DO WHILE .NOT. EOF()
  10.    if numero = ""     &&
  11.       skip
  12.       loop
  13.    endif
  14.    SET ALTERNATE ON
  15.    SET CONSOLE OFF
  16.    ?? ALLTRIM(SPECIAL3)-A
  17.    ?? ALLTRIM(MOIS2)-A
  18.    ?? ALLTRIM(DATE3)-A
  19.    ?? ALLTRIM(THEME)-A
  20.    ?? ALLTRIM(ENDROIT1)-A
  21.    ?? ALLTRIM(ENDROIT2)-A
  22.    ?? ALLTRIM(ENDROIT3)-A
  23.    ?? ALLTRIM(NUMERO)-A
  24.    ?? B
  25.    SKIP
  26. ENDDO
  27. SET CONSOLE ON
  28. SET ALTERNATE TO
  29. DO TEMPS
  30.